home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD ROM Paradise Collection 4
/
CD ROM Paradise Collection 4 1995 Nov.iso
/
program
/
4th86_v4.zip
/
EXAMPLE2.4TH
< prev
next >
Wrap
Text File
|
1993-03-29
|
392b
|
15 lines
on printload
off redefine
: header crlf
" The following shows a DO .. LOOP in action " ." crlf
" ===========================================" ." crlf ;
: footer crlf
" It printed out the even numbers from 1 through 20 " ." crlf ;
: gap 2 spcs ;
: doloop crlf " " ." 20 0 do i . gap 2 +loop crlf ;
: dolooptest header doloop footer ;